home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / title2.bas < prev    next >
Encoding:
BASIC Source File  |  1995-06-17  |  794 b   |  40 lines
  1.  
  2.  /* タイトル出現 その２
  3.  
  4. int x,y,s,x0=9,y0=16
  5. float z
  6. dim d(0,199)
  7. screen 0,3,0,1
  8. sp_init():sp_clr(0)
  9. spfile_def("title.sp",1)
  10. palfile_def("title.pal",1)
  11. sp_disp(1):sp_on(0,127)
  12. bg_set(0,0,1)
  13.  
  14.  /* タイトルを置く
  15. for y=0 to 5:for x=0 to 6
  16. bg_put(0,x0+x*2  ,y0+y*2  ,&h104+x*4+y*28)
  17. bg_put(0,x0+x*2  ,y0+y*2+1,&h105+x*4+y*28)
  18. bg_put(0,x0+x*2+1,y0+y*2  ,&h106+x*4+y*28)
  19. bg_put(0,x0+x*2+1,y0+y*2+1,&h107+x*4+y*28)
  20. next:next
  21.  
  22. while 1
  23. cls
  24.  
  25.  /* スクロールデータセット
  26. for y=1 to 199:d(0,y)=(-1) and &h3ff:next
  27. d(0,0)=90
  28. ras_scroll_set(6,d,,,55)  /* BG0 縦横差分
  29. ras_scroll_stat(1,,,0)
  30. for s=0 to 2500:next
  31.  
  32.  /* スクロールデータを書き替えると、即影響が出る
  33. for y=1 to 120
  34. for s=0 to 700:next
  35. d(0,y)=0
  36. next
  37.  
  38. print "なにかキーを押して下さい";:asc(inkey$)
  39. endwhile
  40.